Imports System.Net

Public Class Comunicacao
    Shared Sub SendMail(ByVal Mensagem As String, ByVal email As String, ByVal Assunto As String)
        Dim message As New System.Net.Mail.MailMessage("julio@dohms.org.br", email, Assunto, Mensagem)
        message.IsBodyHtml = True
        Dim cliente As New System.Net.Mail.SmtpClient("smtp.dohms.org.br")
        cliente.Credentials = New NetworkCredential("julio@dohms.org.br", "mestre03")
        cliente.Send(message)
    End Sub
End Class
